﻿Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.BR

Namespace Mantenimiento.Administracion


    'Clase para la tabla Provincias
    Public Class Provincias
        Inherits JsonAbm

        ''' <summary>
        ''' Esta clase se encarga de la administración de los Provincias.
        ''' </summary>
        Sub New()
            MyBase.New(Operador, Password, "XRUsuario", "nuevositio.dbo.provincias", "Provincia")
            MyBase.lnk_nombreOperador = Common.Env.Operador
        End Sub

        ' Es el listado de provincias, pero en este caso se filtran por el Pais = 11, para que solo traiga los registros de argentina.
        Public Overrides Function List(Start As Integer, Limit As Integer, Orden As String, Filtro As String) As String
            Dim f As FiltroColeccion = FiltroColeccion.Parse(Filtro)
            f.AgregarEQFilter("idPais", "11")
            Return MyBase.List(Start, Limit, Orden, f.ToJSON())
        End Function
    End Class
End Namespace